|
CATIA V5 Programmierung : right-Funktion bis zu einem Zeichen
AndreasNilli am 11.09.2009 um 07:33 Uhr (0)
Guten Morgen.Danke erstmal für die Geduld.Mit den Ohren schlackern könnte ich sogar, wenn notwendig Ein Ablaufplan dachte ich mir folgendermaßen:- den Verzeichnisordner (Path) vom aktuellen Produkt auslesen. - in diesem Ordner wird nach dem Dateientyp "*.cgr" gesucht, ausgewählt und anschließend gelöscht.Das war es eigentlich auch schon Meine bisherigen Makros waren bisher mit der search.-Funktion innerhalb CATIA, sodass Parts o.Ä. auszuwählen für mich relativ einfach war.Wie ich auf diese Sachen extern i ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : right-Funktion bis zu einem Zeichen
AndreasNilli am 10.09.2009 um 14:10 Uhr (0)
Hey.Wow, vielen Dank für den kompletten Code.Da ich noch sehr am Anfang bin, verstehe ich daraus nicht allzuviel..Ich habe jedoch noch was hinzugefügt, sodass es den aktuellen Pfad automatisch findet:(Es soll ja im Prinzip so ablaufen, dass jem., der die BG offen hat, auf einen Button klickt und die CGR aus dem Ordner gelöscht wird)Code:Sub CATMain()Set productDocument1 = CATIA.ActiveDocument Dim S As StringS = CurDir() Dim ActPath As String Dim ActExt As String Dim ActFile As String Dim FHa ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : right-Funktion bis zu einem Zeichen
AndreasNilli am 10.09.2009 um 15:13 Uhr (0)
Das geht ja ruckzuck hier.Also ich habe deinen Code nun mal 1zu1 reinkopiert.Bei mir will er nicht, jedoch kann es auch sein, dass das an diesem Rechner liegt, da es schon paar Sachen gab, die hier nciht funktioniert haben.Was ich allerdings nicht verstehe, was diese ersten Zig-Zeilen überhaupt bedeuten.Ich dachte da eher an etwas, was einfach aussieht. *g*Ich weiß auch nicht.. Du wirst vermutlich schmunzeln, aber nunja Am Ende des Beispiels weiß ich nicht wirklich, wie ich mich in Codeform ausdrücken kann ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : 3D-Bemassung Farbe ändern
AndreasNilli am 11.09.2009 um 13:16 Uhr (0)
Hallo.Sowas habe vor paar Tagen gemacht.Jeweils für engl. und deutsche Version (Dimensions/Bemaßungen)Müsste eigentl funktionieren.Code:Sub CATMain()Dim partDocument1 As PartDocumentSet partDocument1 = CATIA.ActiveDocumentDim selection1 As SelectionSet selection1 = partDocument1.Selectionselection1.Search "(Name=*dimension* + Name=*bemaßung*),all"Dim visPropertySet1 As VisPropertySetSet visPropertySet1 = selection1.VisPropertiesvisPropertySet1.SetRealColor 0, 0, 0, 0selection1.ClearMsgBox ("Fertig!")End Sub
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : PartFullName auslesen
AndreasNilli am 11.09.2009 um 10:59 Uhr (0)
Hallo, ich wieder Ich hänge gerade an der Stelle, dass ich mir den vollen Dateinamen incl. Pfad von jedem einzelnen Part im Produkt anzeigen lassen möchte.Den Partnumber-Namen bzw Instance-Namen auszulesen, weiß ich, bloß der bringt mir in der Hinsicht ja nicht weiter.Durch viele Veränderungen habe ich es versuch daraus mir was abzuleiten, aber Fehlanzeige.Code:Sub CATMain() Set oRoot = CATIA.ActiveDocument Set oProducts = oRoot.Product.Products SUB_ProdScan oProducts oPath = oRoot.Path & "" MsgBox oPath ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : PartFullName auslesen
AndreasNilli am 11.09.2009 um 13:20 Uhr (0)
Hallo Jens.Vielen Dank.Habe einfach folgendes geändert:*edit*So sieht nun der fertige Code aus.Und funktioniert sogar Code:Public oPath As StringSub CATMain() Set oRoot = CATIA.ActiveDocument Set oProducts = oRoot.Product.Products oPath = oRoot.Path MsgBox oPath SUB_ProdScan oProducts End SubSub SUB_ProdScan(oProducts) For i = 1 To oProducts.Count Dim product1 As Product Set product1 = oProducts.Item(i) Dim pPath As String pPath = product1.ReferenceProduct.Parent.Path Ms ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : right-Funktion bis zu einem Zeichen
AndreasNilli am 14.09.2009 um 08:03 Uhr (0)
Hi.Irgendwie ging mir die Sache nicht aus dem Kopf und so habe ich mich mal drangesetzt, es nicht mit dem win-basierenden Code (sofern ich das richtig verstanden habe?) löschen zu wollen.Hier ist mein VorschlagCode:Sub CATMain()Set productDocument1 = CATIA.ActiveDocument Dim Path As String Dim ActPath As String Dim ActExt As String Path = CATIA.ActiveDocument.Path ActPath = Path & "" ActExt = "*.cgr" Dim TempName As String TempName = Dir$(ActPath & "*.cgr") While Len(Dir( ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Unbenutzte Parts löschen
AndreasNilli am 14.09.2009 um 15:18 Uhr (0)
Hallo.Ich stehe mal wieder vor einem Rätsel.Ich möchte ein Makro erstellen, das in einem Vorrichtungsordner alle Parts rauslöscht, die nicht im Produkt genutzt werden.Vom Aufbau her, dachte ihr mir das folgendermaßen:- Die benutzen Parts werden kurzzeitig umgespeichert -- mit "_" vor dem Namen- Alle Parts, die kein "_" als 1.Zeichen im Dateinamen haben, werden gelöscht- Die Dateien mit "_" als 1.Zeichen werden wieder in die ursprüngliche Form umgespeichert und die "_"-Dateien gelöscht.Soweit vom Prinzip he ...
|
| In das Form CATIA V5 Programmierung wechseln |
